<?php
//Esta funcion convierte la fecha de numero a fecha letra
function fechas($fecha="2002-12-23"){
    $meses=array(1=>"Enero",
                    "Febrero",
                    "Marzo",
                    "Abril",
                    "Mayo",
                    "Junio",
                    "Julio",
                    "Agosto",
                    "Septiembre",
                    "Octubre",
                    "Noviembre",
                    "Diciembre");
    $dias=array(1=>"al primer día",
                "a los dos días",
                "a los tres días",
                "a los cuatro días",
                "a los cinco días",
                "a los seis días",
                "a los siete días",
                "a los ocho días",
                "a los nueve días",
                "a los diez días",
                "a los once días",
                "a los doce días",
                "a los trece días",
                "a los catorce días",
                "a los quince días",
                "a los dieciseis días",
                "a los diecisiete días",
                "a los dieciocho días",
                "a los diecinueve días",
                "a los veinte días",
                "a los veintiún días",
                "a los veintidós días",
                "a los veintitrés días",
                "a los veinticuatro días",
                "a los veinticinco días",
                "a los veintiseis días",
                "a los veintisiete días",
                "a los veintiocho días",
                "a los veintinueve días",
                "a los treinta días",
                "a los treinta y un días"
                );
    $anyos=array(2002=>"dos mil dos",
        "dos mil tres",
        "dos mil cuatro",
        "dos mil cinco",
        "dos mil seís",
        "dos mil siete",
        "dos mil ocho",
        "dos mil nueve",
        "dos mil diez",
        "dos mil once",
        "dos mil doce",
        "dos mil trece",
        "dos mil catorce",
        "dos mil quince",
        "dos mil dieciseís",
        "dos mil diecisiete",
        "dos mil dieciocho",
        "dos mil diecinueve",
        "dos mil veinte",
        "dos mil veintiuno",
    );
    list($anyo,$mes,$dia)=explode("-",$fecha);
    $fecha1="$dia de ".$meses[$mes]." de $anyo";
    $fecha2=$dias[$dia]." del mes de ".$meses[$mes]." de ".$anyos[$anyo];
    return array($fecha1,$fecha2);
}

//Calcula la fecha de independencia y la federaci�
function fecha_ind_fed($fecha_doc="2002-12-31"){
    list($ah,$mh,$dh)=explode("-",$fecha_doc);
    $fed=$ah-1859;
    if ( mktime(0,0,0,$mh,$dh,$ah)< mktime(0,0,0,2,20,$ah))
         $fed--;
    $indep=$ah-1810;
    if ( mktime(0,0,0,$mh,$dh,$ah)< mktime(0,0,0,4,19,$ah))
         $indep--;

    return $indep . 'º y ' . $fed . "º";
}

function pc_process_dir2($dir_name,$func_name,$max_depth = 10,$depth = 0) 
{ 
    if ($depth >= $max_depth) 
    { 
	error_log("Reached max depth $max_depth in $dir_name."); 
	return false; 
    } 
    $subdirectories = array(); 
    $files = array(); 
    if (is_dir($dir_name) && is_readable($dir_name)) 
    { 
        $d = dir($dir_name); 
	while (false !== ($f = $d->read())) 
	{ 
	    // skip . and .. 
	    if (('.' == $f) || ('..' == $f)) 
	    { 
	        continue; 
	    } 
	    if (is_dir("$dir_name/$f")) 
	    { 
	        array_push($subdirectories,"$dir_name/$f"); 
	    } 
	    else 
	    { 
	        $func_name("$dir_name/$f"); 
	    } 
	} 
	$d->close(); 
	foreach ($subdirectories as $subdirectory) 
	{ 
	    pc_process_dir2($subdirectory,$func_name,$max_depth,$depth+1); 
	} 
    }  
} 

function f2f($fecha){
   list($d,$m,$a)=explode('-',$fecha);
   return "$a-$m-$d";
}
function ir($direccion){
  header("Location: $direccion");
  exit();
}
///////
function ver2($matriz) {
   $estilo='style="font-size:8pt;font-family:arial;"';
   $color1='#dfdfdf';
   $color2='#fefefe';
   $color3='#fdfdfd';
   $color='color1';
   $salida='<table border="1" cellspacing="3" cellpadding="3"  '.$estilo.' rules="cols">';
   if (!is_array($matriz)){var_dump($matriz);return $matriz;}
      foreach($matriz as $key=>$value) {
         if(count($value)>0){
       $color=($color=='color1')?'color2':'color1';
       if(is_array($value)||is_object($value)) {
           $salida.='<tr bgcolor="'.$color3."\"><td valign='top'>$key</td><td>";
           $salida.=ver2($value);
           $salida.="</td></tr>";
         } else {
            $salida.='<tr bgcolor="'.$$color."\"><td valign='top'>$key</td><td>$value</td></tr>";
         }

       }
   }
   $salida.='</table>';
   return $salida;
}

function ver($ss){
   if(!(is_array($ss)||is_object($ss))){
      echo $ss;
   }else{
      echo ver2($ss);
   }
}


function vq($a){
   echo('//------------//--------------//<br />');
   ver($a);
   echo('//------------//--------------//<br />');
   die('.');
}

function v(){
echo <<<LRDTAB
    <table border="1">
   <tr>
       <td>SESSION
       </td>
       <td>REQUEST
       </td>
   </tr>
   <tr>
       <td>
LRDTAB;
   ver($_SESSION);
echo <<<LRDTAB
       </td>
       <td>REQUEST
LRDTAB;
   ver($_REQUEST);
echo <<<LRDTAB
       </td>
   </tr>
    </table>
LRDTAB;
 }

